Backport 2012-06-23T12:54:59Z!cyd@gnu.org from trunk

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 53238f0352494e86548a8fac69edc1e84dd80a75..aef344e3f2a77aeb4a005c880b84d994c86f34d2 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -885,9 +885,6 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
                     (copy-region-as-kill (mark) (point)))))
 
          ;; Otherwise, run binding of terminating up-event.
-         (setq foo (list (window-buffer (selected-window))
-                         (current-buffer)))
-
          (if do-multi-click
              (goto-char start-point)
            (deactivate-mark)